% SL Script to control PDF generation, do a 4 page on one for booklet folding ('glue' method)

% FYI: setupPage ( float translate_x, float translate_y, float rotate, float scale_x, float scale_y, int keepOnSamePage )

define pdf_page_setup(pagenum) {
	variable onSamePage;
	variable scaleFactor;

	scaleFactor = 0.5;

	% first find out which setup to apply

	onSamePage = pagenum mod 4;

	% top left, top right, bottom left bottom right

	if (onSamePage == 1) {
		setupPage(pageWidth()/2.0,pageHeight()/2.0,0.0,scaleFactor,scaleFactor,0); % first page triggers new page
	} 
	if (onSamePage == 2) {
		setupPage(pageWidth(),pageHeight()/2.0,180.0,scaleFactor,scaleFactor,1); 		
	}
	if (onSamePage == 3) {
		setupPage(pageWidth()/2.0,pageHeight()/2.0,180.0,scaleFactor,scaleFactor,1);	
	}
	if (onSamePage == 0) {
		setupPage(0.0,pageHeight()/2.0,0.0,scaleFactor,scaleFactor,1);
	}
	setAnnotationPageDivider(4);
}

define action_pdfmark(s,n) {

}

